﻿Module edrawings

    '<HTML>
    '<BODY>
    '<OBJECT ID="EV" classid="clsid:22945A69-1191-4DCF-9E6F-409BDE94D101" codebase="http://www.solidworks.com/plugins/edrawings/download.cfm?Release=rel#version=7,0,0,627" width="100%" height="99%">
    '<PARAM name="FullUI" value="-1"/>
    '<param name="EnableFeatures" value="6256">
    '<param name="Filename" value="C:\Documents and Settings\Administrator\桌面\侧翻240x340x16信报箱\铰链支架.SLDPRT">
    '<param name="BackgroundColor" value="11179655">
    '<param name="HighlightColor" value="65280">
    '<param name="PaperColor" value="14411494">
    '<param name="BackgroundColorOverride" value="-1">
    '<param name="BackgroundColorGradient" value="-1">
    '<param name="PaperColorOverride" value="0">
    '</OBJECT>
    '</BODY>
    '</HTML>

    Const html1 = "<HTML><BODY><OBJECT ID='EV' classid='clsid:22945A69-1191-4DCF-9E6F-409BDE94D101' codebase='http://www.solidworks.com/plugins/edrawings/download.cfm?Release=rel#version=7,0,0,627' width='100%' height='99%'><PARAM name='FullUI' value='-1'/><param name='EnableFeatures' value='6256'><param name='Filename' value='"
    Const html2 = "'><param name='BackgroundColor' value='11179655'><param name='HighlightColor' value='65280'><param name='PaperColor' value='14411494'><param name='BackgroundColorOverride' value='-1'><param name='BackgroundColorGradient' value='-1'><param name='PaperColorOverride' value='0'></OBJECT></BODY></HTML>"

'创建html文件,edrawing文件名,sld文件名
    Public Sub CreatHtml(ByVal edrawings_File As String, ByVal SldFile As String)
        If IsFileExsts(edrawings_File) = True Then
            System.IO.File.Delete(edrawings_File)
        End If

        Dim html As String = html1 & SldFile & html2
        WirteLineString(edrawings_File, html)

    End Sub
End Module
